10 REM TAPE LIST C-64
20 REM (C) 1984 BY
30 REM KLAUS RACZEK
40 REM D-5140 ERKELENZ
100 PRINT"[147]   TAPE LIST  "
110 PRINT" BAND FERTIG ?"
120 PRINT" <RETURN[146]>"
130 POKE198,0:WAIT198,1
140 PRINT" PRESS PLAY ON TAPE"
145 IFPEEK(1)=55THEN145
148 PRINT"[145] SEARCHING          "
150 OPEN1,1,0
160 N$="":FORI=0TO15:N$=N$+CHR$(PEEK(833+I)):NEXT
170 A=PEEK(829)+256*PEEK(830)
180 E=PEEK(831)+256*PEEK(832)
190 F=PEEK(828)
200 PRINT"----------------------";
210 IFF=1THENPRINT"BASIC-PROGRAMM:":PRINT""N$
220 IFF=3THENPRINT"MASCHINENPROGRAMM:":PRINT""N$
230 IFF=4THENPRINT"SEQENTIELLE DATEI:":PRINT""N$
240 IFF=1ORF=3THENPRINT"LAENGE:"E-A+1"BYTES"
250 IFF=3THENPRINT"STARTADESSE:"A
260 CLOSE1:GOTO150